﻿Public Class frm_parcelas

    Public forma As String
    Public dataPgto As Date
    Public lancamento As Integer
    Public valTot As Decimal

    Private Sub frm_parcelas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(271, 253)
        Label1.Text = "do Lancaçamento nº " + lancamento.ToString()
        cbForma.SelectedIndex = 0
    End Sub

    Private Sub cbForma_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbForma.SelectedIndexChanged
        If cbForma.SelectedIndex = 3 Then
            Me.Size = New Size(572, 253)
            lblObs.Text = "DEFINIR PARCELAMENTO"
        Else
            Me.Size = New Size(271, 253)
            lblObs.Text = "BAIXAR PAGAMENTO"
        End If
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        gd_parcelas.Rows.Clear()

        Dim valortotal As Decimal = 0
        Dim valorParcelas As Decimal = 0
        Dim vezes As Integer = 0
        Dim dias As Integer = 0
        Dim controladias As Date
        Dim contador As Integer = 1

        Try
            If (txtDias.Text = "" Or txtVezes.Text = "") Then
                MessageBox.Show("MODELO DE PARCELAMENTO INCORRETO OU INDEFINIDO")
            ElseIf (txtDias.Text = 0 Or txtVezes.Text = 0) Then
                MessageBox.Show("MODELO DE PARCELAMENTO INCORRETO OU INDEFINIDO")
            ElseIf (dtPgto.Value.Date > Date.Now.Date) Then
                MessageBox.Show("Data Do Pagamento Não Pode ser maior que data Atual")
            Else
                vezes = txtVezes.Text
                valortotal = valTot
                valorParcelas = valortotal / vezes
                dias = txtDias.Text
                controladias = dtPgto.Value.AddDays(dias)


                For i = 0 To vezes - 1
                    controladias = dtPgto.Value.AddDays(dias)
                    gd_parcelas.Rows.Add(contador, Format(controladias, "dd/MM/yyyy"), Format(valorParcelas, "R$ ###,###,##0.00"))
                    contador = contador + 1
                    dias = txtDias.Text
                    dias = dias * contador
                Next

            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Private Sub bSalvar_Click(sender As System.Object, e As System.EventArgs) Handles bSalvar.Click

        Try
            If (cbForma.SelectedIndex = 3) Then
                If (txtDias.Text = "" Or txtVezes.Text = "" Or gd_parcelas.Rows.Count < 1) Then
                    MessageBox.Show("MODELO DE PARCELAMENTO INCORRETO OU INDEFINIDO")
                ElseIf (dtPgto.Value > Date.Now) Then
                    MessageBox.Show("DATA DO PAGAMENTO NÃO PODE SER MAIOR QUE A DATA ATUAL")
                ElseIf (dataPgto > dtPgto.Value) Then
                    MessageBox.Show("DATA DO PAGAMENTO NÃO PODE SER MENOR QUE A DATA DO MOVIMENTO")
                Else
                    forma = cbForma.Text
                    dataPgto = dtPgto.Value
                    Me.Close()
                End If
            Else
                If (dtPgto.Value > Date.Now) Then
                    MessageBox.Show("DATA DO PAGAMENTO NÃO PODE SER MAIOR QUE A DATA ATUAL")
                ElseIf (dataPgto > dtPgto.Value) Then
                    MessageBox.Show("DATA DO PAGAMENTO NÃO PODE SER MENOR QUE A DATA DO MOVIMENTO")
                Else
                    forma = cbForma.Text
                    dataPgto = dtPgto.Value
                    Me.Close()
                End If
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Private Sub txtVezes_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtVezes.KeyPress
        If Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtDias_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDias.KeyPress
        If Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then
            e.Handled = True
        End If
    End Sub
End Class